20 REM "EMPLOYER'S TAXES"
30 PRINT"[147]"
40 POKE 53280,8:POKE 53281,8:PRINT CHR$(5)
50 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
60 PRINT"    * * * * * * * * * * * * * * * *"
70 PRINT
80 PRINT"COMPUTER ASSISTANCE FOR COMPLETION OF"
90 PRINT
100 PRINT"  IRS FORM 941 - EMPLOYER'S QUARTERLY"
105 PRINT
110 PRINT"      FEDERAL TAX RETURN"
120 PRINT
130 PRINT"   * * * * * * * * * * * * * * * *"
140 FOR X=1TO5000:NEXT X
150 PRINT"[147]"
160 PRINT:PRINT
170 PRINT"THIS PROGRAM WAS WRITTEN IN "
190 PRINT"SEPTEMBER 1983 BY DR. JOHN P. MESCH,"
210 PRINT"P.O. BOX 229, EMPIRE, MICHIGAN, 49630."
220 PRINT
230 PRINT"THE AUTHOR HAS FOUND IT HELPFUL IN "
250 PRINT"PREPARING IRS FORM 941.  DR. MESCH IS"
270 PRINT"NOT AN ACCOUNTANT OR TAX ADVISOR AND"
290 PRINT"ASSUMES NO RESPONSIBILITY FOR ERRORS IN"
310 PRINT"TAX RETURNS.  IF FORM 941 IS REVISED OR"
330 PRINT"THE FICA TAX IS CHANGED, THEN THIS"
350 PRINT"PROGRAM WILL HAVE TO BE MODIFIED."
360 PRINT
370 PRINT"THIS PROGRAM WORKS FOR MOST CASES WHERE"
390 PRINT"THERE ARE NO TIPS OR ADJUSTMENTS TO"
410 PRINT"BE CONSIDERED."
420 FOR I=1TO10000:NEXT I
430 PRINT"[147]"
440 POKE53280,6:POKE53281,6
450 PRINTCHR$(5)
460 PRINT"IS THIS THE FIRST QUARTER'S 941,"
470 INPUT "DUE APRIL 30 ? (ANSWER Y OR N)";F$
475 PRINT
480 IF F$="Y" THEN GOTO 510
490 IF F$="N" THEN GOTO 540
500 IF F$<>"Y" OR F$<>"N" THEN GOTO 460
510 PRINT "ENTER THE NUMBER OF EMPLOYEES IN THE"
520 INPUT "PAY PERIOD THAT INCLUDES MARCH 12";E
530 PRINT
540 PRINT"ENTER THE TOTAL WAGES SUBJECT TO"
550 INPUT"WITHHOLDING";W
560 PRINT
570 INPUT"ENTER TOTAL INCOME TAX WITHHELD";T
580 PRINT
590 INPUT"ENTER THE TOTAL FICA WAGES PAID";F
595 PRINT
600 PRINT"ENTER THE TOTAL OF DEPOSITS"
620 PRINT"MADE THIS QUARTER AGAINST THIS"
630 INPUT"TAX LIABILITY";      D
640 PRINT
650 PRINT
660 PRINT
670 PRINT
680 PRINT
690 INPUT"ARE YOU READY TO COMPUTE";R$
700 IF R$="Y" GOTO 720
710 IF R$<>"Y" GOTO 650
720 S=F*.134
730 Z=S+T
740 P=(S+T)-D
750 PRINT"[147]"
760 PRINT"ENTER THE AMOUNTS INDICATED FOR "
770 PRINT"EACH LINE # ON FORM 941"
780 PRINT
790 IF E<>0 THEN PRINT"LINE 1 -> ";E
800 PRINT"LINE 2 -> ";W
820 PRINT"LINE 3 -> ";T
840 PRINT"LINE 5 -> ";T
860 PRINT"LINE 6 -> ";F;"AND -> ";S
880 PRINT"LINE 8 -> ";S
900 PRINT"LINE 10 -> ";S
920 PRINT"LINE 11 -> ";Z
940 PRINT"LINE 13 -> ";Z
960 PRINT"LINE 14 -> ";D
980 IF P>=0 THEN PRINT"LINE 15 -> ";P;"(ENCLOSE A CHECK"
1000 IF P<0 THEN PRINT"LINE 16 -> ";-(P)"(YOU HAVE A CREDIT"
1005 PRINT"FOR THIS AMOUNT)"
1010 PRINT
1020 PRINT"MAKE SURE YOUR EMPLOYER ID NUMBER IS ON"
1030 PRINT"THE FORM AND DON'T FORGET TO SIGN IT."
1040 END